home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / jul94 / mmfig07b.gif < prev    next >
Graphics Interchange Format  |  1996-07-03  |  29.0 KB  |  581x317  |  4-bit (14 colors)
   ocr: CURSOREaField/EmouseEnter" nethod nouseEnter(uar eventinfo HouseEvent) var hModule, hCursor Snallint enduar - - Change nouse pointer to circle with diagonal bar disableDefault hModule = GetModuleHandle("PAFORM") if hHodule € 0 then hCursor == LoadCursor(hHodule,218) if hCursor € 0 then setMouseshape(ncursor) endif endif endMethod Edit Line: 12 Col: 1